Multiply_HP_By_32:

 ld a, h
 ld c, l

  sla c \ rla
  sla c \ rla
  sla c \ rla
  sla c \ rla
  sla c \ rla

 ret

Multiply_DE_By_A

	
	ld hl, 0		;hl will store the product
	ld b, 8			;check 8 bits
	
_

	rrca			;check bit 0 of register A
	jr nc, _

	add hl, de

_

	sla e
	rl d

	djnz --_
	ret

Add_A_To_HL:
	add a,l
	ld l,a
	adc a,h    ;^ these two lines
	sub l      ;v increase h if there is carry
	ld h,a

	ret
